390 IF R=11 AND LEFT$(D$,1)="W" AND I=0 THEN PRINT: D$="": PRINT "THE PELICAN WON'T LET YOU GO WEST.": PRINT: REM THIS IS A SPECIAL INSTRUCTION FOR THE PELICAN ROOM UNTIL YOU GET RID OF THE PELICAN.
400 IF R=3 AND LEFT$(D$,1)="E"THEN GOSUB 900
410 IF R=5 AND LEFT$(D$,1)="E"THEN GOSUB 930
420 REM THIS IS THE MOVING MECHANISM. SEE TEXT ARTICLE FOR EXPLANATION.
430 IF LEFT$(D$,1)="N" AND N(R)>0 THEN R=N(R): GOTO 350
440 IF LEFT$(D$,1)="S" AND S(R)>0 THEN R=S(R): GOTO 350
450 IF LEFT$(D$,1)="E" AND E(R)>0 THEN R=E(R): GOTO 350
460 IF LEFT$(D$,1)="W" AND W(R)>0 THEN R=W(R): GOTO 350
470 IF LEFT$(D$,1)="D" AND D(R)>0 THEN R=D(R): GOTO 350
480 IF LEFT$(D$,1)="U" AND U(R)>0 THEN R=U(R): GOTO 350
490 REM NOPE, THE MOVE ISN'T LEGAL.
500 PRINT "YOU CANNOT MOVE IN THAT DIRECTION": PRINT: GOTO 380
510 REM SPECIAL CONDITION SECTION
520 IF R=7 AND I>0 THEN PRINT "THE VILLAGERS REFUSE TO LET YOU REENTER": R=5: REM YOU CAN'T REENTER ROOM 7 AFTER YOU'VE OBTAINED THE REPELLENT
530 IF R=7 AND I=0 THEN I=1: REM YOU HAVE OBTAINED THE REPELLENT
540 IF R=11 AND I=0 THEN PRINT "A MADDENED LIMP PENIS THREATENS YOU.": PRINT
550 IF R=12 AND I=1 THEN PRINT "THE PENIS ERECTS IN EXCITMENT FROM THE BODY SUITAND LETS YOU PASS.": PRINT
560 IF R=12 AND I=1 THEN I=2:GOSUB 1000
570 IF R=1 AND I=2 THEN GOTO 590
580 GOTO 380
590 REM WIN ROUTINE
600 PLAY "MBL4O3BABDEDEL1G
610 PRINT "MR. SCHPOCK BEAMS YOU BACK ABOARD THE CENTIPEDE. YOU POUR THE CRYSTALS IN THE FUEL TANK AND GIVE THE COMMAND TO LEAVE ORBIT.": PRINT
620 PRINT "AS YOU SHIFT TO WARP DRIVE, THE FORWARD VIEW SCREEN SHOWS AN ENRAGED SPACE PELICAN FLAPPING FURIOUSLY TRYING TO KEEP UP WITH YOU."
630 END
640 REM MESSAGES FOR EACH ROOM
650 DATA "YOU ARE STANDING IN THE DOORWAY OF THE UNDERGROUND SINGLES RESORT YOU HAVE CHECKED IN.THERE IS A STAIRWAY GOING DOWN."
660 DATA "YOU ARE NOW STANDING AT THE BEGGINING OF A HALLWAY.YOU HAVE BEEN ASSINGED TO THE FANTASY ROOM #4.WHERE EVERY THING IS READY FOR YOU.YOU FIND A PATH TO THE NORTH, A VALLEY TO THE WEST.THERE'S AN IMPASSABLE PINK SWAMP TO THE SOUTH.
670 DATA "YOU ARE NOW ON A PINK-ASPHALT ROAD.THERE IS A DOOR WITH'FANTASY ROOM #1 YOUR FANTAY GIRL IS CALLED FIFI',TO THE EAST. YOU CAN CONTINUE TO GO NORTH."
680 DATA "YOU ARE AT THE EDGE OF A VALLEY. IT DOES LOOK POSSIBLE TO DESCEND. TO THE SOUTH, THE STRANGE PINK SWAMP BURBLES. A PATH TO THE NORTH IS BLOCKED BY SEXY-LINGRE."
690 DATA "TO THE EAST IS FANTASY ROOM #2 THE DOOR IS UNLOCKED.YOU SEE A SMALL SETTLEMENT TO THE NORTH. EVEN MORE CURIOUS IS A HUGE BLACK DISK TO THE WEST. THERE IS A LAKE TO THE EAST, EFFECTIVELY BLOCKING THAT ROUTE."
700 DATA "AS YOU STEP ON THE BLACK DISK, YOU SUDDENLY REALIZE IT'S A VIBORATOR. AFTER A SECOND OF VERTIGO, EVERYTHING SEEMS BLACK."
710 DATA "YOU ENTER A VERY SMALL SETTLEMENT. APPARENTLY ALL OF THE VILLAGERS ARE OUT TO LUNCH. THE WHOLE VILLAGE SEEMS TO BE THE SOLE PLANETARY PRODUCER OF LEATH BODY SUITS. YOU FIND A SMALL SAMPLE ONE, AND POCKET IT."
720 DATA "YOU ARE NOW AT THE BOTTOM OF A FAIRLY STEEP CANYON. THE WEST IS UNCLIMBABLE, BUT IT DOES SEEM THAT YOU CAN HEAD TOWARDS THE SOUTH. CRAB GRASS COMPLAINS ABOUT THE WEATHER TOWARDS THE NORTH--THAT ROUTE IS INOPERATIVE."
730 DATA "YOU SEEM TO BE IN SOME TYPE OF PINK BOG."
740 DATA "YOU SEEM TO HAVE STUMBLED ONTO A VERY LARGE BLACK DISK. THERE IS A SECOND OF VERTIGO, AND THEN BLACKNESS."
750 DATA "YOU ARE IN A DARK REDDISH CANYON. TO THE NORTH, THERE IS PINK BOG. TO THE WEST IS A CURVING PATH."
760 DATA "YOU ARE IN A SMALL ROCKY ALCOVE. IT SEEMS TO RESEMBLE A PELICAN NEST (WHICH, OF COURSE, IS PURE COINCIDENCE)."
770 REM THE FOLLOWING DATA ARE THE ROOM VECTORS. SEE TEXT FOR EXPLANATION.
780 DATA 0,0,0,0,2,0
790 DATA 3,0,0,4,0,1
800 DATA 5,2,0,0,0,0
810 DATA 0,0,2,0,8,0
820 DATA 7,3,0,6,0,0
830 DATA 9,9,9,9,9,9
840 DATA 0,5,0,0,0,0
850 DATA 0,9,0,0,0,4
860 DATA 8,11,0,10,0,0
870 DATA 5,5,5,5,5,5
880 DATA 9,0,0,12,0,0
890 DATA 0,0,11,0,0,0
900 PRINT "YOU SEE FARRAH WITH A HALTER STYLE SWIMMING SUIT ON.SHE GRACEFULY DIVES IN AND THE SUIT FLOATS TO THE SURFACE.SHE STARTS TO FLOAT ON HER BACK.YOU RUN TWORADS THE POOL AND JUMP IN AND SMOTHER HER."
910 PRINT "SHE TEARS YOUR CLOTHES OFF AND YOU KISS YOUR TOUNGES ENTWINING AND YOUR HANDS EXPLORING.YOU CARRY HER OUT OF THE POOL AND FALL TO THE GROUND WITH HER.SHE SMASHES HER BODY AGAINST HER AND ONE THING LEADS TO ANOTHER.YOU DRIFT OF TO SLEEP..."
920 RETURN
930 CLS
940 PRINT "YOU ENTER THE DOOR,AND FALL ASLEEP.THEN YOU SEE WHAT APPEARS TO BE A DREAM,BUT IT HAS A NARRORATOR."
950 PRINT "HE SAYS "+CHR$(34)+N$+" CARRIED RAQUEL INTO THE CAVE,OUT OF THE DRENCHING RAIN AND BUILT A FIRE.RAQUELS THIN SHIRT CLUNG TO HER BODY."N$+" SAID`YOU'LL CATCH PNEMONIA WITH THOSE WET CLOTHES ON ,HERE I'LL HELP YOU.'"
960 PRINT "HE PEELED HER CLOTHES AWAY AND SET HER DOWN BUY THE FIRE.``DAMN YOU LOOK BEAUTIFUL'' HE SAID.``SEDUCE ME'' SHE ANSWERED HUSKILY.HE COVERED HER WITH HIS BODY,BURYING HIS FACE IN HER BREASTS.";
970 PRINT CHR$(34)
980 PRINT "AT THAT TIME,YOU WAKE UP IN THE HALLWAY."
990 RETURN
1000 CLS
1010 PRINT "YOU ENTER THE DOOR AND AGAIN FIND YOUR SELF ASLEEP,DREAMING."
1020 PRINT N$+":I KNOCK ON THE HOTEL SUITE DOOR CALLING `ROOM SERVICE',MADONA OPENED THE DOOR,AND LET ME IN.SHE WAS WHEARING A SEXY,BLACK HALTER STYLE BODY SUIT.SHE ASKES ME TO HELP HER IN THE ARDOUS TASK OF POPPING THE CORK ON A BOTTLE OF DON PERIGNON";
1030 PRINT "SHE THAN PETITIONED ME TO MASSAGE HER POOR ACHING NECK AND SHOULDER MUSCLES.`I MUST BE IN HEAVEN',I THOUGHT AS I KNEADED HER CREAMY FLES.SHE SIPPED CHAMPANGE AND SIGHED WITH GRATTITUDE AS I VIGOROUSLY RUBBED HER LOWER BACK.";
1040 PRINT "I LET MY HANDS SLIP EVEN LOWER BENEATH THE TIGH FITTING LEATHER AND TICKLED HER CROTCH.I COULD NO LONGER RESIST TEMTATION.I SPU HER AROUND AND SMASHED OUR MOUTHS TOGETHER.";
1050 PRINT "AT FIRST SHE RESSITED,BUT THAN SHE GAVE IN AND OUR TOUNGES ENTWINED.I CARRIED HER TO THE BED ,IT WAS RED SATIN WITH A CANOPY AND A MIRROR ON TOP.I UNTIED THE SIDES OF HER BODY SUIT,";
1060 PRINT " WILE SHE UNZIPPED MY PANTS.SOON WE WERE COMPLETLY NAKED.I WAS MASSAGIN HER RIGHT BREAST WITH MY MOUTH WILE RUBBIN HER OTHER ON WITH MY LEFT HAND AND TICKELING HER CLITORIS WITH MY RIGHT.";
1070 PRINT "SHE WAS PULLING ON MY DICK WITH ONE HAND AND MASSAGED MY BUTTOCKS WITH THE OTHER."
(.txt)